(defun C:ChangeSupportPath ()
(vl-load-com)
(setq acadObj (vlax-get-acad-object))
(setq prefObj (vla-get-Preferences acadObj))
(setq prefFiles (vla-get-files prefObj))
(setq supportPath (vla-get-supportpath prefFiles))
(IF (WCMATCH (STRCASE supportPath)
	     (IF (>= (ATOF (SUBSTR (GETVAR "ACADVER") 1 4)) 17.0)
	       "*C:\\PROGRAM FILES\\AUTODESK\\MENUS\\2007\\CORP*"
	       "*C:\\PROGRAM FILES\\AUTODESK\\MENUS\\CORP*"
	     )
    )
  NIL
  (SETQ supportPath
	 (STRCAT supportPath
	     (IF (>= (ATOF (SUBSTR (GETVAR "ACADVER") 1 4)) 17.0)
	       ";C:\\Program Files\\Autodesk\\Menus\\2007\\CORP"
	       ";C:\\Program Files\\Autodesk\\Menus\\CORP"
	     )
	 )
  )
)
(IF (WCMATCH (STRCASE supportPath)
	     (IF (>= (ATOF (SUBSTR (GETVAR "ACADVER") 1 4)) 17.0)
	       "*C:\\PROGRAM FILES\\AUTODESK\\MENUS\\2007\\GPDGN*"
	       "*C:\\PROGRAM FILES\\AUTODESK\\MENUS\\GPDGN*"
	     )
    )
  NIL
  (SETQ supportPath
	 (STRCAT supportPath
	     (IF (>= (ATOF (SUBSTR (GETVAR "ACADVER") 1 4)) 17.0)
	       ";C:\\Program Files\\Autodesk\\Menus\\2007\\GPDGN"
	       ";C:\\Program Files\\Autodesk\\Menus\\GPDGN"
	     )
	 )
  )
)
(IF (WCMATCH (STRCASE supportPath) "*L:\\UTIL*")
  NIL
  (SETQ supportPath (STRCAT supportPath ";L:\\Util"))
)
(IF (WCMATCH (STRCASE supportPath) "*L:\\UTIL\\LSP*")
  NIL
  (SETQ supportPath (STRCAT supportPath ";L:\\Util\\Lsp"))
)
(IF (WCMATCH (STRCASE supportPath) "*L:\\UTIL\\PARA\\SOURCE*")
  NIL
  (SETQ supportPath (STRCAT supportPath ";L:\\Util\\Para\\Source"))
)
(IF (WCMATCH (STRCASE supportPath) "*L:\\UTIL\\PARA\\SLIDE*")
  NIL
  (SETQ supportPath (STRCAT supportPath ";L:\\Util\\Para\\Slide"))
)
(IF (WCMATCH (STRCASE supportPath) "*L:\\UTIL\\PARAPIPE\\2K8*")
  NIL
  (SETQ supportPath (STRCAT supportPath ";L:\\Util\\ParaPIPE\\2K8"))
)
(vla-Put-SupportPath prefFiles supportPath)
(princ)
)
